home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 6 / MacMania 6.toast / / Tools&Utilities / EnterAct Stuff / Drag_on Modules / hAWK example progs / $Unscramble < prev    next >
Text File  |  1994-01-26  |  158b  |  10 lines
  1. # Unscramble
  2. #    name[] = "string"
  3. #into
  4. #    name["string"] = 1
  5.  
  6.     {
  7.     if (match($1, /(\w|_)+/))
  8.         print substr($1, RSTART, RSTART+RLENGTH) "[" $3 "]", "=", "1"
  9.     }
  10.